home *** CD-ROM | disk | FTP | other *** search
/ H4CK3R 14 / hacker14.iso / programacao / visual / perl.exe / {app} / Webroot / cgi-bin / javascript.cgi < prev    next >
Encoding:
Text File  |  2003-01-11  |  3.5 KB  |  104 lines
  1. #!perl
  2.  
  3. # This script illustrates how to use JavaScript to validate fill-out
  4. # forms.
  5. use CGI qw(:standard);
  6.  
  7. # Here's the javascript code that we include in the document.
  8. $JSCRIPT=<<EOF;
  9.     // validate that the user is the right age.  Return
  10.     // false to prevent the form from being submitted.
  11.     function validateForm() {
  12.         var today = new Date();
  13.         var birthday = validateDate(document.form1.birthdate);
  14.         if (birthday == 0) {
  15.             document.form1.birthdate.focus()
  16.             document.form1.birthdate.select();
  17.             return false;
  18.         }
  19.         var milliseconds = today.getTime()-birthday;
  20.         var years = milliseconds/(1000 * 60 * 60 * 24 * 365.25);
  21.         if ((years > 20) || (years < 5)) {
  22.             alert("You must be between the ages of 5 and 20 to submit this form");
  23.             document.form1.birthdate.focus();
  24.             document.form1.birthdate.select();
  25.             return false;
  26.         }
  27.         // Since we've calculated the age in years already,
  28.         // we might as well send it up to our CGI script.
  29.         document.form1.age.value=Math.floor(years);
  30.         return true;
  31.     }
  32.  
  33.    // make sure that the contents of the supplied
  34.    // field contain a valid date.
  35.    function validateDate(element) {
  36.        var date = Date.parse(element.value);
  37.        if (0 == date) {
  38.            alert("Please enter date in format MMM DD, YY");
  39.            element.focus();
  40.            element.select();
  41.        }
  42.        return date;
  43.    }
  44.  
  45.    // Compliments, compliments
  46.     function doPraise(element) {
  47.         if (element.checked) {
  48.             self.status=element.value + " is an excellent choice!";
  49.             return true;
  50.         } else {
  51.             return false;
  52.         }
  53.     }
  54.  
  55.     function checkColor(element) {
  56.         var color = element.options[element.selectedIndex].text;
  57.         if (color == "blonde") {
  58.             if (confirm("Is it true that blondes have more fun?"))
  59.                 alert("Darn.  That leaves me out.");
  60.         } else
  61.             alert(color + " is a fine choice!");
  62.     }
  63. EOF
  64.     ;
  65.  
  66. # here's where the execution begins
  67. print header;
  68. print start_html(-title=>'Personal Profile',-script=>$JSCRIPT);
  69.  
  70. print h1("Big Brother Wants to Know All About You"),
  71.     strong("Note: "),"This page uses JavaScript and requires ",
  72.     "Netscape 2.0 or higher to do anything special.";
  73.  
  74. &print_prompt();
  75. print hr;
  76. &print_response() if param;
  77. print end_html;
  78.  
  79. sub print_prompt {
  80.     print start_form(-name=>'form1',
  81.                      -onSubmit=>"return validateForm()"),"\n";
  82.     print "Birthdate (e.g. Jan 3, 1972): ",
  83.           textfield(-name=>'birthdate',
  84.                         -onBlur=>"validateDate(this)"),"<p>\n";
  85.     print "Sex: ",radio_group(-name=>'gender',
  86.                                   -value=>[qw/male female/],
  87.                                   -onClick=>"doPraise(this)"),"<p>\n";
  88.     print "Hair color: ",popup_menu(-name=>'color',
  89.                                         -value=>[qw/brunette blonde red gray/],
  90.                                         -default=>'red',
  91.                                         -onChange=>"checkColor(this)"),"<p>\n";
  92.     print hidden(-name=>'age',-value=>0);
  93.     print submit();
  94.     print end_form;
  95. }
  96.  
  97. sub print_response {
  98.     import_names('Q');
  99.     print h2("Your profile"),
  100.         "You claim to be a ",b($Q::age)," year old ",b($Q::color,$Q::gender),".",
  101.         "You should be ashamed of yourself for lying so ",
  102.         "blatantly to big brother!",
  103.         hr;
  104. }